home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / omed_pt.lha / rexx / Cmddown.omed next >
Text File  |  1995-11-25  |  539b  |  22 lines
  1. /* Push cmd one down  - Case 04-11-95 */
  2. address OCTAMED_REXX
  3. options results
  4. 'ed_getnumlines var numlines'
  5. 'ed_getcurrline var currline'
  6. numlines = numlines - 1
  7. if currline = numlines then do
  8. 'ed_advanceline down'
  9. exit
  10. end
  11. else
  12. 'op_update off'
  13. 'ed_advanceline down'
  14. do until numlines = currline
  15. numlines = numlines - 1
  16. 'ed_getdata line' numlines 'cmdnum var cmdnum'
  17. 'ed_getdata line' numlines 'qual var qual'
  18. 'ed_setdata line' numlines + 1 'cmdnum' cmdnum 'qual' qual
  19. end
  20. 'ed_setdata line' currline 'cmdnum 00 qual 00'
  21. 'op_update on'
  22. exit